home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 1997 April to September / Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso / products / bin / httpd / Solaris_2 / AT-SunSolsearch.cgi < prev    next >
Text File  |  1997-02-27  |  4KB  |  125 lines
  1. #!/tmp/httpd/.excite/perl
  2.  
  3. $root = "/tmp/httpd/.excite";
  4. unshift(@INC, "$root/perllib");
  5. require 'architext_query.pl';
  6. require 'ctime.pl';
  7. $aurl = "/.bin/Excite/";
  8. $db = "SunSol";
  9. $index = "/tmp/httpd/.products/.bin/Excite/collections/SunSol";
  10. $hroot = "/tmp/httpd/.products";
  11. $binary = "/tmp/httpd/.excite/architextSearch";
  12. $urledit = 's|[\\\/]tmp[\\\/]httpd[\\\/]\.products[\\\/]|/|; ';
  13.  
  14. %form = &ArchitextQuery'readFormArgs;
  15. &ArchitextQuery'directQuery($form{'search'} || '(no search)',
  16.     $form{'mode'} || 'concept', $db, $form{'source'} || 'local', $form{'backlink'} || '*', $form{'bltext'} || '*');
  17. print "Content-type: text/html\n\n";
  18.  
  19. $myself = $aurl . '/AT-' . $db . 'search.cgi';
  20.  
  21.  
  22. if ($form{'notifySearchPage'}) {
  23.  
  24.     print qq(<html><head><title>EWS Querying</title></head>);
  25.     print qq(<body BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" ALINK="#0000FF"><h1> <img src="${aurl}pictures/AT-search_banner.gif"> </h1><p>);
  26.  
  27.     if (!open(QFORM, "$root/AT-query.html")) {
  28.         print "<h1>Couldn't find $root/AT-query.html</h1>";
  29.         print qq(<a href="$form{'notifyReturn'}">BACK</a>);
  30.         exit(0);
  31.     }
  32.     while (<QFORM>) {
  33.     s/CGI/$myself/;
  34.     s/BUTTON/$aurl\/pictures\/AT-search_button.gif/;
  35.     s/EXCITED/$aurl\/pictures\/AT-excited.gif/;
  36.     s/DOC/$aurl\/AT-queryhelp.html/;
  37.     s/QUERY/$form{'search'}/;
  38.     print "$_\n" unless ((/___SEPARATOR___/) || $skip_radio || (/___END___/));
  39.     $skip_radio = 0 if (/___END___/);
  40.         if (/___SEPARATOR___/) {
  41.         $skip_radio = 1;
  42.           print qq(<INPUT TYPE="hidden" NAME="notifyReturn" VALUE="$form{'notifyReturn'}">);
  43.         }
  44.     }
  45.     close(QFORM);
  46.     print qq(</body></html>);
  47.     exit(0);
  48. }
  49.  
  50. ## make NewSearch button point back to excite
  51. if ($form{'notifyReturn'}) {
  52.   $form{'sp'} = 'sp';
  53.   if ($form{'notifyReturn'} eq '_back_') {
  54.     $ENV{'HTTP_REFERER'} = $myself . '?notifySearchPage=yes';
  55.   }
  56.   else {
  57.     $ENV{'HTTP_REFERER'} = $form{'notifyReturn'};
  58.   }
  59. }
  60.  
  61. print "<html><head><title>Excite for Web Servers Search Results</title></head>\n";
  62. #print "<body BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#FF0000\" ALINK=\"#0000FF\">"; 'fred.
  63. print "<body background=\"/SunSolutions/images/back3.gif\">";
  64. #print "<h1><a href=\"http://www.excite.com/\"><img src=\"/Excite/pictures/AT-search_banner.gif\" BORDER=0></a></h1>\n"; 'fred.
  65. print "<CENTER> <h1><a href=\"http://www.excite.com/\"><img src=\"/SunSolutions/images/cdban.gif\" BORDER=0></a></h1>\n";
  66. print "<h1> Search Results </h1> </CENTER>";
  67.  
  68. $form{'root'} = $root;
  69. $search = &ArchitextQuery'setSearchString(%form);
  70. $searchtype = &ArchitextQuery'getSearchMode(%form);
  71.  
  72. ## put necessary additional information into %form
  73. $form{'aurl'} = $aurl;
  74. $form{'db'} = $db;
  75. $form{'index'} = $index;
  76. $form{'hroot'} = $hroot;
  77. $form{'binary'} = $binary;
  78. $form{'urledit'} = $urledit;
  79. $form{'searchpage'} = $ENV{'HTTP_REFERER'} if ($form{'sp'});
  80. $form{'docs'} = '1' unless $form{'docs'};
  81. $form{'psearch'} = $form{'psearch'} || $form{'search'};
  82. $form{'search'} = $search;
  83.  
  84. $errstr = 'success';
  85. ## This call checks to make sure that an index has been built for 
  86. ## this collection.  Also checks if we should use new query syntax
  87. $form{'newquery'} = &ArchitextQuery'checkForIndex(%form);
  88.  
  89. if ($searchtype eq 'confidence') {
  90.     ## Perform the query. This function doesn't print anything. 
  91.     ##Later commands will display the results.
  92.     ($errstr, @query_results) = &ArchitextQuery'MakeQuery(%form);
  93.     $docs = &ArchitextQuery'PrepareGather(*query_results);
  94.     $form{'docs'} = $docs;
  95.     ## &ArchitextQuery'showSearchMode($searchtype, %form) 
  96.     ## unless (($errstr eq 'summary') || ($errstr eq 'dump')); 'fred.
  97.     &ArchitextQuery'showSearchString(%form) 
  98.     unless (($errstr eq 'summary') || ($errstr eq 'dump'));
  99.     &ArchitextQuery'HtmlList(*query_results, %form) if ($errstr eq 'success');
  100. } else {
  101.     ## subject group query
  102.     ## &ArchitextQuery'showSearchMode($searchtype, %form); 'fred.
  103.     &ArchitextQuery'showSearchString(%form, 'gather', 'gather');
  104.     $errstr = &ArchitextQuery'MakeGather(%form);
  105.  
  106. }
  107.  
  108. if ($errstr eq 'summary') {
  109.         &ArchitextQuery'SummaryOutput($form{'stitle'} || '*',
  110.                       $form{'surl'} || '*',
  111.                       *query_results);
  112. } elsif ($errstr eq 'dump') {
  113.         &ArchitextQuery'DocumentOutput(*query_results);
  114. } else {
  115.         print &ArchitextQuery'queryError($errstr) 
  116.         unless ($errstr eq 'success');
  117. }
  118.  
  119. &ArchitextQuery'footer($aurl) if ($errstr eq 'success');
  120.  
  121.  
  122.  
  123.  
  124. print "</body></html>\n";
  125.